From: Deniz Dogan <deniz@dogan.se>
Date: Sun, 29 May 2011 05:42:00 +0000 (+0200)
Subject: * net/rcirc.el (rcirc): Use the user's stored encryption method by default.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3624
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7a0d135b114cc173dfd903b32dd26d35c16187eb;p=emacs.git

* net/rcirc.el (rcirc): Use the user's stored encryption method by default.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe2bc1c1376..985b5f3944a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-29  Deniz Dogan  <deniz@dogan.se>
+
+	* net/rcirc.el (rcirc): Use the user's stored encryption method by
+	default.
+
 2011-05-29  Chong Yidong  <cyd@stupidchicken.com>
 
 	* select.el: Don't perform clipboard-manager saving in hooks;
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 0d02688beed..47085af85f0 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -456,7 +456,12 @@ If ARG is non-nil, instead prompt for connection parameters."
              (encryption
               (intern (completing-read "Encryption (default plain): "
                                        '("plain" "tls")
-                                       nil t nil nil "plain"))))
+                                       nil t
+                                       (let ((choice (plist-get server-plist
+                                                                :encryption)))
+                                         (when choice
+                                           (symbol-name choice)))
+                                       nil "plain"))))
 	(rcirc-connect server port nick user-name
 		       rcirc-default-full-name
 		       channels password encryption))